home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Delphi Programmer's Power Pack
/
Delphi Volume 1.iso
/
s_to_z
/
wmapdemo
/
data.z
/
MAPMAIN.DFM
/
MAPMAIN.txt
Wrap
Text File
|
1996-03-19
|
21KB
|
581 lines
object MapForm: TMapForm
Left = 208
Top = 53
Width = 640
Height = 475
Caption = 'TWorldMap Component Demo'
Color = clAqua
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
FormStyle = fsMDIChild
KeyPreview = True
Menu = MainMenu1
PixelsPerInch = 96
Position = poDefault
PrintScale = poPrintToFit
Visible = True
WindowState = wsMaximized
OnClose = FormClose
OnCreate = FormCreate
TextHeight = 16
object Mapanel: TPanel
Left = 0
Top = 0
Width = 632
Height = 49
Align = alTop
TabOrder = 0
object Label1: TLabel
Left = 7
Top = 5
Width = 45
Height = 14
Caption = 'Latitude'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 89
Top = 4
Width = 56
Height = 14
Caption = 'Longitude'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object labels: TSpeedButton
Left = 235
Top = 12
Width = 25
Height = 25
Hint = 'Toggle Labels'
Glyph.Data = {
90020000424D9002000000000000760000002800000040000000100000000100
0400000000000002000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8888888
8FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8888888
8FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000FFFFFFFFFF8888888
8FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8888888
8FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF99FFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF99FFFFFFFFFFFFF9999FFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF9999FFFFFFFFFFFFF99FFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF99FFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000
0000000000000000000000000000000000000000}
NumGlyphs = 4
ParentShowHint = False
ShowHint = True
OnClick = SHowLabels1Click
end
object SpeedButton2: TSpeedButton
Left = 187
Top = 12
Width = 25
Height = 25
Hint = 'Full Screen'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33033333333333333F7F3333333333333000333333333333F777333333333333
000333333333333F777333333333333000333333333333F77733333333333300
033333333FFF3F777333333700073B703333333F7773F77733333307777700B3
333333773337777333333078F8F87033333337F3333337F33333778F8F8F8773
333337333333373F333307F8F8F8F70333337F33FFFFF37F3333078999998703
33337F377777337F333307F8F8F8F703333373F3333333733333778F8F8F8773
333337F3333337F333333078F8F870333333373FF333F7333333330777770333
333333773FF77333333333370007333333333333777333333333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = Full1Click
end
object SpeedButton3: TSpeedButton
Left = 163
Top = 12
Width = 25
Height = 25
Hint = 'Zoom In'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33033333333333333F7F3333333333333000333333333333F777333333333333
000333333333333F777333333333333000333333333333F77733333333333300
033333333FFF3F777333333700073B703333333F7773F77733333307777700B3
33333377333777733333307F8F8F7033333337F333F337F3333377F8F9F8F773
3333373337F3373F3333078F898F870333337F33F7FFF37F333307F99999F703
33337F377777337F3333078F898F8703333373F337F33373333377F8F9F8F773
333337F3373337F33333307F8F8F70333333373FF333F7333333330777770333
333333773FF77333333333370007333333333333777333333333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = SetZoom1Click
end
object points: TSpeedButton
Left = 211
Top = 12
Width = 25
Height = 25
Hint = 'Toggle Points'
Glyph.Data = {
90020000424D9002000000000000760000002800000040000000100000000100
0400000000000002000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF99FFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF99FFFFFFFFFFFFF9999FFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF9999FFFFFFFFFFFFF99FFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF99FFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF99
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF99FFFFFFFFFFFFF999
9FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000009999FFFFFFFFFFFFF99
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF99FFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF99FFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF99FFFFFFFFFFFFF9999FFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF9999FFFFFFFFFFFFF99FFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF99FFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000
0000000000000000000000000000000000000000}
NumGlyphs = 4
ParentShowHint = False
ShowHint = True
OnClick = ShowPoints1Click
end
object LinesButton1: TSpeedButton
Left = 259
Top = 12
Width = 25
Height = 25
Hint = 'Toggle Lines'
Glyph.Data = {
10010000424D1001000000000000760000002800000010000000100000000100
0400000000008000000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF99FFFFFFFFFFFFF9999FFFFFF
FFFFFFF99CFFFFFFFFFFFFFFFFCCFFFFFFFFFFFFFFFFCCFFFFFFFFFFFFFFFFC9
9FFFFFFFFFFFCC9999FFFFFFFCCCFFF99FFFFF9CCFFFFFFFFFFFF9999FFFFFFF
FFFFFF99FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000
0000000000000000000000000000000000000000}
ParentShowHint = False
ShowHint = True
OnClick = LinesButton1Click
end
object SpeedButton1: TSpeedButton
Left = 283
Top = 12
Width = 25
Height = 25
Hint = 'Toggle Grid Lines'
Glyph.Data = {
10010000424D1001000000000000760000002800000010000000100000000100
0400000000008000000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFF